perm filename CERR.LSP[C,JRA] blob
sn#012879 filedate 1972-11-16 generic text, type T, neo UTF8
00100
00200
00300 (DEFPROP CERR
00400 (LAMBDA(L A)
00600 (PRINT (QUOTE **ERROR**))
00700 (MAPC (QUOTE
00800 (LAMBDA(X)
00900 (CPRIN1 (COND ((ATOM X) X) ((EQ (CAR X) (QUOTE /@)) (EVAL (CDR X) A)) (T X)))
01000 (PRINC (QUOTE / ))))
01100 L)
01200 (CPRINT EXP)
01300 (PRINT (QUOTE IN-LISP))
01400 LP (PRINC (QUOTE /*) )
01500 (ERRSET
01600 (COND ((EQ (SETQ ** (READ)) (QUOTE $P)) (RETURN NIL))
01700 ((EQ (CAR **) (QUOTE RETURN)) (RETURN (EVAL (CADR **) A)))
01800 (T (SETQ * (CPRINT (EVAL ** A))))))
01900 (SETQ ← **)
02000 (GO LP))
02100 FEXPR)